home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
showgrb_
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
7KB
From: GLAUDE DAVID <dglaude@is1.vub.ac.be>
Subject: v06i014: showgrb_gd - Grob Viewer v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 797674624 (verify with brik -cv)
Submitted-by: GLAUDE DAVID <dglaude@is1.vub.ac.be>
Posting-number: Volume 6, Issue 14
Archive-name: showgrb_gd/part01
BEGIN_DOC showgrob.doc
Hello, HP48 users
( Q: is there any women in this mail server ???? ]
I am glad to give you the first SYS-RPL
application I wroted for a past examination. !!!
It is a simple Grob Viewer with a scrolling capability
that do not destroy PICT but work a bit the same as a
"PICT STO GRAPH".
Keys are "explane" in the source I give you below.
Compiled version is given to save time to you.
Mail me any comment or question.
*******************************************
;-) English is not my best skill ;-)
*******************************************
END_DOC
BEGIN_ASC showgrob.asc
%%HP: T(1);
"D9D202BA812BF8111920C0000D9D20CA0311359320F04FC2E4CF146592300B82
10CA3047A20D6E204054879647B21300D47079E60E8E6079E60D9D209FF303D8
16D9D20D5040B1FF3D9D2088704231D4B2130F8040B1FF3D9D2088704051D4B2
13099040B1FF3D9D2088704E61D4B21303A040B1FF3D9D2088704C81D4B21307
6040B1FF3D9D2088704740E0C2A20F20003586F6777427F6260224970274C657
E2021393932352721C2A20F20004676C61657465604963713E2675726E21636E
22656847215E14121F04B50E0B2130C1B46B1FF3D9D208870418A3079E60D6E2
0405487964772D70B2130F7140745364423021EF3B2130D00403D816D9D20D50
40B1FF3D9D208870409615B2130F8040B1FF3D9D20887045E615B213099040B1
FF3D9D2088704EA615B21303A040B1FF3D9D208870430715B2130F7140745364
423021EF3B21308523021EF3B2130DEBB09E5503353679E60D6E204054879647
79E601DE4058983743E4CA03144193B2130B2130B99D"
END_ASC
BYTES: #D99Bh 372
BEGIN_UU showgrob.uue
begin 644 showgrob
M2%!(4#0X+42=+2"K&+*/$9$"#`#0V0*L,!%3.0(/]"Q._$%6*0.P*`&L`W0J
MT.8"!$5X:70K,0!-!Y=NX.@&EV[0V0+Y/S"-89TMT`4$&__3V0*(!R0332LQ
M\`@$&__3V0*(!P0532LQD`D$&__3V0*(!^0632LQ,`H$&__3V0*(!\0832LQ
M<`8$&__3V0*(!W0$#BPJ\`(`4VAO=T=R;V(@0GD@1VQU+B`Q.3DR)2?!H@(O
M`$!VQA961U8&E#87XV)7)^82-N8B5H9T$N5!(?%`6^"P$@,<2[;Q/YTM@'A`
M@3IPZ09M+D!0A)=&=]('*S'P%P1'-48D`Q+^LQ(##4`PC6&=+=`%!!O_T]D"
MB`<$:5$K,?`(!!O_T]D"B`=4;E$K,9`)!!O_T]D"B`?D:E$K,3`*!!O_T]D"
MB`<T<%$K,?`7!$<U1B0#$OZS$@-8,B#A/RLQT+X+Z54P4V.7;M#F`@1%>&ET
4EVX0[02%B7,T3JPP010Y*S&P$@,`
`
end
END_UU
-----------------------------------------------------------------------
SOURCE FOR TOOLS :
BEGIN_SRC showgrob.m
OU SHOWGROB
LL SHOWGROB.LR
SU XR
SE ENTRIES.O
SE ENTRIADD.O
RE SHOWGROB.O
END_SRC
BEGIN_SRC entriadd.a
*
* Missing in entries.a
*
=Restore16 EQU #0E05B *
=Save16 EQU #0E047 *
END_SRC
BEGIN_SRC showgrob.s
* ShowGrob first distributed version.
* by Glu ( Glaude David )
* usage : one grob on first level !!!
* key : arrow to scroll
* shited arrow to go to extremity
* on to quit
* next to see copyright message
*---------------------------------------------------------
*
* Include the header file KEYDEFS.H, which defines words
* like kcUpArrow at physical key numbers.
*
INCLUDE KEYDEFS.H
*
* Include the eight characters needed for binary download
*
ASSEMBLE
NIBASC /HPHP48-D/
RPL
*
* Begin the secondary
*
::
CK1NOLASTWD
CK&DISPATCH1 # C
::
RECLAIMDISP ( *Claim the alpha display* )
ClrDA1IsStat ( *Temporarily disable clock* )
* ( *Try removing ClrDA1IsStat* )
VERYSLOW
TURNMENUOFF ( *Turn off menu line* )
ZEROZERO ( UserGrob #0 #0 )
ROT ( #0 #0 UserGrob )
XYGROBDISP ( )
*
FALSE ( FALSE )
{ LAM Exit } BIND ( *Bind POL exit flag* )
' NOP ( *No display action* )
' :: ( *Hard key handler* )
kpNoShift #=casedrop
::
kcUpArrow ?CaseKeyDef
:: TakeOver SCROLLUP ;
kcLeftArrow ?CaseKeyDef
:: TakeOver SCROLLLEFT ;
kcDownArrow ?CaseKeyDef
:: TakeOver SCROLLDOWN ;
kcRightArrow ?CaseKeyDef
:: TakeOver SCROLLRIGHT ;
kcNextRow ?CaseKeyDef
:: TakeOver Save16
"ShowGrob By Glu. 1992"
DISPROW1*
"dglaude@is1.vub.ac.be"
DISPROW2* ERRBEEP
VERYVERYSLOW Restore16 ;
kcOn ?CaseKeyDef
:: TakeOver
TRUE ' LAM Exit STO ;
kcRightShift #=casedrpfls
DROP 'DoBadKeyT
;
kpRightShift #=casedrop
::
kcUpArrow ?CaseKeyDef
:: TakeOver JUMPTOP ;
kcLeftArrow ?CaseKeyDef
:: TakeOver JUMPLEFT ;
kcDownArrow ?CaseKeyDef
:: TakeOver JUMPBOT ;
kcRightArrow ?CaseKeyDef
:: TakeOver JUMPRIGHT ;
kcRightShift #=casedrpfls
DROP 'DoBadKeyT
;
2DROP 'DoBadKeyT
;
TrueTrue ( *Key control flags* )
NULL{} ( *No softkeys here* )
ONEFALSE ( *1st row, no suspend* )
' LAM Exit ( *App exit condition* )
' ERRJMP ( *Error handler* )
ParOuterLoop ( *Run the ParOuterLoop* )
TURNMENUON ( *Restore menu row* )
RECLAIMDISP ( *Resize and clear display* )
ClrDAsOK ( *Redraw display* )
;
;
END_SRC
-----------------------------------------------------------------
BEGIN_RDME showgrob.rdm
I hope source will help you to build aplication with TOOLS from HP.
This is just a transformation of some of the exemples from TOOLS
but I think that the result is more usefull that these demo.
I do not revendic any copyright .... Not even the idee is new !!!
See TOOLS documentation for right copyright.
END_RDME
--
You can call me Glu. To find me on IRC : /who dglaude*
If I am there ... /msg Glu Hello Glu ... I am a HP48 user/programmer.
I will answer you as fast as possible.
e-mail : dglaude@is1.vub.ac.be